home *** CD-ROM | disk | FTP | other *** search
- /* DeletePic.rexx, 04.04.95 Jörg Richter */
-
- OPTIONS RESULTS
-
- NL = D2C(10)
-
- ADDRESS DataBase
-
- Total
- IF result = 0 THEN
- EXIT
-
- Request "_Löschen|_Markierte|_Abbruch" "ACHTUNG! Gelöscht werden:" || NL || NL || "· das Orginalbild" || NL || "· das Vorschaubild" || NL || "· der Datensatz" || NL || NL || "Sind Sie sicher ?"
- res = RC
- IF res = 0 THEN
- EXIT
-
- IF res = 1 THEN DO
-
- GetData $F1
- bild = result
- GetData $F4
- thumb = result
-
- ADDRESS COMMAND
- 'C:Delete > NIL: ' || bild
- fehler1 = RC
- 'C:Delete > NIL: ' || thumb
- fehler2 = RC
-
- ADDRESS DataBase
- IF fehler1 ~= 0 THEN
- Request "_Ok" "Das Orginalbild konnte nicht gelöscht werden"
- IF fehler2 ~= 0 THEN
- Request "_Ok" "Das Vorschaubild konnte nicht gelöscht werden"
- Delete
- END
-
- ELSE DO
- Display Off
- LeftTotal
- Show Marked
- weiter = 0
- DO WHILE weiter = 0
- IsMarked
- IF RC = 0 THEN DO
- GetData $F1
- bild = result
- GetData $F4
- thumb = result
-
- ADDRESS COMMAND
- 'C:Delete > NIL: ' || bild
- 'C:Delete > NIL: ' || thumb
-
- ADDRESS DataBase
- Delete
- END
- ELSE DO
- RightOne
- weiter = RC
- END
- END
- Show All
- LeftTotal
- Display On
- Show
-
- END
-
-